﻿'FWRK: Página inicial de la aplicación

Partial Class _Default
    Inherits System.Web.UI.Page

    Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Dim mUser As System.Web.Security.MembershipUser

        'mUser = Membership.GetUser()

        'If Not mUser Is Nothing Then
        '    If mUser.IsApproved And Application("LogOut") = 1 Then
        '        FormsAuthentication.SignOut()

        '        Application("LogOut") = 0

        '        Response.Redirect("~/FwrkPages/login.aspx")
        '    End If
        'End If

        'Application("LogOut") = 0
        

    End Sub

    Private Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit

        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If

    End Sub


End Class
